0 2 _d length 2 sub { /_x exch def

0 1 _dd length 1 sub { /_d exch _dd exch get def

/_da _dl array def

/_dp 0 def

/_dl 4 def

/_y 0 def

/_n exch def

/_llx exch def

/_lly exch def

/_urx exch def

/_ury exch def

/_dd exch def

{ exit } ifelse } loop array astore } if

{ 0 { dup 1 add index type /arraytype eq { 1 add }

/E { _ed begin dup 0 get type /arraytype ne

/_dp _dp 1 add def } ifelse } def

_dp _dl mod _da 0 get 4 get 2 packedarray

7 packedarray _da exch _dp _dl mod exch put

{ _dp 0 ne _dp _dl mod 0 eq and { null dp } if

definepattern pop } if }

_da 0 get aload pop 8 -1 roll 5 -1 roll pop 4 1 roll

_dp 1 sub _dl mod 1 add packedarray 

{ 0 1 _dp 1 sub _dl mod { _da exch get 3 get } for

/dp { dup null eq { pop _dp 0 ne

/_lp /none ddef } def

/_pss { _sc ss } ddef

/_ps { _sc stroke } ddef

_is _gs 1 exch sub setcustomcolor /_lp /stroke ddef } if } ddef

/_sc { _lp /stroke ne { _os setoverprint

/X { /_gs exch ddef findcmykcustomcolor /_is exch ddef

/_psf { _fc exch pop ashow } ddef /_lp /none ddef } def

/_pf { _fc fill } ddef

_if _gf 1 exch sub setcustomcolor /_lp /fill ddef } if } ddef

/_fc { _lp /fill ne { _of setoverprint

/x { /_gf exch ddef findcmykcustomcolor /_if exch ddef

/_lp /none ddef } def

/_pss { _sc ss } ddef

/_ps { _sc stroke } ddef

_os setoverprint _cs aload pop setcmykcolor /_lp /stroke ddef } if } ddef

/K { _cs astore pop /_sc { _lp /stroke ne {

/_lp /none ddef } def

/_psf { _fc exch pop ashow } ddef

/_pf { _fc fill } ddef

{ _of setoverprint _cf aload pop setcmykcolor /_lp /fill ddef } if } ddef

/k { _cf astore pop /_fc { _lp /fill ne

/_pss { _sc ss } ddef /_lp /none ddef } def

/_ps { _sc stroke } ddef

_os setoverprint _gs setgray /_lp /stroke ddef } if } ddef

/G { /_gs exch ddef /_sc { _lp /stroke ne {

/_lp /none ddef } def

/_psf { _fc exch pop ashow } ddef

/_pf { _fc fill } ddef

_of setoverprint _gf setgray /_lp /fill ddef } if } ddef

/g { /_gf exch ddef /_fc { _lp /fill ne {

/R { 0 ne /_os exch ddef /_lp /none ddef } def

/O { 0 ne /_of exch ddef /_lp /none ddef } def

/& {} def

/@ {} def

/~ { end _i restore } def

newpath 0 setgray false setoverprint pop } def

/setstrokeadjust where {pop false setstrokeadjust} if

[] 0 setdash

10 setmiterlimit

0 setlinejoin

1 setlinewidth

0 setlinecap

0 setgray

/showpage {} def

userdict begin

/` { /_i save ddef 6 1 roll 4 npop concat

/Q { grestore } def

/q { gsave } def

/U {} def

/u {} def

} def

/FontName get exch definefont pop

currentdict dup end end

{ exch pop } ifelse } forall } if pop

{ Encoding 2 index 2 index put pop 1 add }

0 exch { dup type /nametype eq

/Encoding Encoding 256 array copy def

/FontName exch def dup length 0 ne {

{ 1 index /FID ne { def } { 2 npop } ifelse } forall

/Z { pop findfont begin currentdict dup length 1 add dict begin

/T { _tm setmatrix } def

/a { tm /t { 2 copy ta _psf newpath ta _tm _pss tl newpath } ddef } def

/r { tm /t { ta _tm _pss tl newpath } ddef } def

/e { tm /t { ta _psf tl newpath } ddef } def

/o { tm /t { ta 4 npop tl newpath } ddef } def

/I { tm /t { ta sp tl } ddef } def

/tm { _tm currentmatrix pop concat } def

exch findfont exch scalefont setfont } def

{ 0 exch neg _tt astore pop neg 0 _tl astore pop } ifelse

0 _tt astore pop 0 exch neg _tl astore pop }

/z { /_a exch ddef /_as as _a get ddef _a 2 le {

{ 0 0 } } cvlit def

{ 2 copy _tt aload pop 4 -2 roll sw exch neg exch neg }

2 copy _tt aload pop 4 -2 roll sw exch neg 2 div exch neg 2 div }

/as { { 0 0 } {

/tl { _tl aload pop translate } def

/ta { _as moveto _tt aload pop 4 -2 roll } def

/W { clip } def

/b { closepath B } def

/B { gsave F grestore S } def

/s { closepath S } def

/S { _ps } def

/f { closepath F } def

/F { _pf } def

/n /N load def

/N { newpath } def

/h { closepath } def

/H {} def

/w { setlinewidth } def

/M { setmiterlimit } def

/J { setlinecap } def

/j { setlinejoin } def

/i { dup 0 eq { pop cf } if setflat } def

/cf currentflat def

/d { setdash } def

} ifelse

/m { pl moveto } def

/L /l load def

/l { pl lineto } def

/Y /y load def

/y { pl 2 copy curveto } def

/V /v load def

/v { currentpoint 6 2 roll pl curveto } def

/C /c load def

{ /c { pl curveto } def

/m { moveto } def }

/L /l load def

/l { lineto } def

/Y /y load def

/y { 2 copy curveto } def

/V /v load def

/v { currentpoint 6 2 roll curveto } def

/C /c load def

/c { curveto } def

pop true setstrokeadjust

/setstrokeadjust where {

0.25 sub round 0.25 add exch itransform } def

/pl { transform 0.25 sub round 0.25 add exch

false charpath 2 copy rmoveto } exch cshow 2 npop } def

/sp { exch pop { 2 npop (0) exch 2 copy 0 exch put pop

2 copy rmoveto } exch cshow 3 npop } def

currentpoint 4 index setmatrix stroke grestore moveto

2 npop (0) exch 2 copy 0 exch put pop gsave false charpath

/ss { 3 -1 roll pop 4 1 roll {

4 1 roll 3 1 roll 1 sub mul add } def

/sw { stringwidth exch 5 -1 roll 3 index 1 sub mul add

/npop { { pop } repeat } def

load begin def end } def

dup dup load dup length 2 mul dict copy def } if

/xput { dup load dup length exch maxlength eq {

/ddef { Agamik_Barcoder_vars 3 1 roll put } def

/_ null def

/terminate { end end } def

newpath } def

Agamik_Barcoder_vars begin

Agamik_Barcoder begin

end end end

{ dup xcheck { bind } if pop pop } forall

Agamik_Barcoder dup /nc get begin

Agamik_Barcoder begin

/_i null def

/_sdd null def

/_sd null def

/_sm null def

/_fdd null def

/_fd null def

/_fm null def

/_pm matrix def

/_ed 15 dict def

/_pd 1 dict def

/_sc {} def

/_os false def

/_is null def

/_cs 4 array def

/_gs null def

/_fc {} def

/_of false def

/_if null def

/_cf 4 array def

/_gf null def

/t {} def

/_tm matrix def

/_tl 2 array def

/_tt 2 array def

/_as null def

/_a null def

/_pss {} def

/_psf {} def

/_ps {} def

/_pf {} def

/_lp /none def

userdict /Agamik_Barcoder_vars 31 dict dup begin put

/initialize {

userdict /Agamik_Barcoder 73 dict dup begin put

currentpacking true setpacking

%%BeginProcSet: Agamik_Barcoder 1.20 0